home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / welltemp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  5.7 KB  |  90 lines
  1. 100  ' PRAELUDIUM II FROM THE WELL-TEMPERED CLAVIER BY J. S. BACH
  2. 110  ' REALIZED AND TRANSCRIBED FOR PC BY JOHN D. BRINK, OCTOBER 1983
  3. 120  SCREEN 0,1:    WIDTH 80: COLOR 5,1,2: KEY OFF: CLS: PLAY "MB L32 T096 MS"
  4. 130  FOR I=1 TO 74: READ M$:  PRINT I;" ";M$:            PLAY M$:  NEXT I
  5. 140  FOR I = 1 TO 1500:       NEXT I:      COLOR 7,0,0:  KEY ON:   CLS:  END
  6. 150  DATA " O3C O1C O2D#O1G O2D O1F O2D#O1G   O2C O1D#O2D#O1G O2D O1F O2D#O1G "
  7. 160  DATA " O3C O1C O2D#O1G O2D O1F O2D#O1G   O2C O1D#O2D#O1G O2D O1F O2D#O1G "
  8. 170  DATA " O2G#O1C O2F O1G#O2E O1G O2F O1G#  O2C O1F O2F O1G#O2E O1G O2F O1G#"
  9. 180  DATA " O2G#O1C O2F O1G#O2E O1G O2F O1G#  O2C O1F O2F O1G#O2E O1G O2F O1G#"
  10. 190  DATA " O2B O1C O2F O1G#O2D#O1G O2F O1G#  O2D O1F O2F O1G#O2D#O1G O2F O1G#"
  11. 200  DATA " O2B O1C O2F O1G#O2D#O1G O2F O1G#  O2D O1F O2F O1G#O2D#O1G O2F O1G#"
  12. 210  DATA " O3C O1C O2G O1D#O2F O1D O2G O1D#  O2D#O1G O2G O1D#O2F O1D O2G O1D#"
  13. 220  DATA " O3C O1C O2G O1D#O2F O1D O2G O1D#  O2D#O1G O2G O1D#O2F O1D O2G O1D#"
  14. 230  '
  15. 240  DATA " O3D#O1C O2G#  C   G O1A#O2G#  C   O2D#O1G#O2G#  C   G O1A#O2G#  C "
  16. 250  DATA "O3D#O1C O2G#  C   G O1A#O2G#  C   O2D#O1G#O2G#  C   G O1A#O2G#  C "
  17. 260  DATA "O3D O1C O2F#O1A O2E O1G O2F#O1A   O2D O1F#O2F#O1A O2E O1G O2F#O1A "
  18. 270  DATA "O3D O1C O2F#O1A O2E O1G O2F#O1A   O2D O1F#O2F#O1A O2E O1G O2F#O1A "
  19. 280  DATA "O3D O0A#O2G O1A#O2F#O1A O2G O1A#  O2D O1G O2G O1A#O2F#O1A O2G O1A#"
  20. 290  DATA "O3D O0A#O2G O1A#O2F#O1A O2G O1A#  O2D O1G O2G O1A#O2F#O1A O2G O1A#"
  21. 300  DATA "O3C O0A#O2E O1G O2D O1F O2E O1G   O2C O1E O2E O1G O2D O1F O2E O1G "
  22. 310  DATA "O3C O0A#O2E O1G O2D O1F O2E O1G   O2C O1E O2E O1G O2D O1F O2E O1G "
  23. 320  '
  24. 330  DATA "O3C O0G#O2F O1G#O2E O1G O2F O1G#  O2C O1F O2F O1G#O2E O1G O2F O1G#"
  25. 340  DATA "O3C O0G#O2F O1G#O2E O1G O2F O1G#  O2C O1F O2F O1G#O2E O1G O2F O1G#"
  26. 350  DATA "O2A#O0G#O2F O1D O2D#O1C O2F O1D   O2D O1F O2F O1D O2D#O1C O2F O1D "
  27. 360  DATA "O2A#O0G#O2F O1D O2D#O1C O2F O1D   O2D O1F O2F O1D O2D#O1C O2F O1D "
  28. 370  DATA "O2A#O0G O2G O1D#O2F O1D O2G O1D#  O2D#O1G O2G O1D#O2F O1D O2G O1D#"
  29. 380  DATA "O2A#O0G O2G O1D#O2F O1D O2G O1D#  O2D#O1G O2G O1D#O2F O1D O2G O1D#"
  30. 390  DATA "O2G#O1C O2G O1D#O2F O1D O2G O1D#  O2D#O1G#O2G O1D#O2F O1D O2G O1D#"
  31. 400  DATA "O2G#O1C O2G O1D#O2F O1D O2G O1D#  O2D#O1G#O2G O1D#O2F O1D O2G O1D#"
  32. 410  '
  33. 420  DATA "O2G#O1D O2D O1F O2C O1D#O2D O1F     A#  G#O2D O1F O2C O1D#O2D O1F "
  34. 430  DATA "O2G#O1D O2D O1F O2C O1D#O2D O1F     A#  G#O2D O1F O2C O1D#O2D O1F "
  35. 440  DATA "O2G O1D#  A#  G   G#  F   A#  G   O2D#O1G#  A#  G   G#  G   A#  G "
  36. 450  DATA "O2G O1D#  A#  G   G#  F   A#  G   O2D#O1G#  A#  G   G#  G   A#  G "
  37. 460  DATA "O2F O1D#O2C O1A   A#  G O2C O1G     A   F O2C O1A   A#  G O2C O1A "
  38. 470  DATA "O2F O1D#O2C O1A   A#  G O2C O1G     A   F O2C O1A   A#  G O2C O1A "
  39. 480  DATA "O2F O1D O2D O1F O2C O1D#O2D O1F     B   G#O2D O1F O2C O1D#O2D O1F "
  40. 490  DATA "O2F O1D O2D O1F O2C O1D#O2D O1F     B   G#O2D O1F O2C O1D#O2D O1F "
  41. 500  '
  42. 510  DATA "O2F O1C O2D O1F O2C O1E O2D O1F     B   G#O2D O1F O2C O1E O2D O1F "
  43. 520  DATA "O2F O1C O2D O1F O2C O1E O2D O1F     B   G#O2D O1F O2C O1E O2D O1F "
  44. 530  DATA "O2D#O1C O2C O1D#  B O1D O2C O1D#    G   F O2C O1D#  B O1D O2C O1D#"
  45. 540  DATA "O2D#O1C O2C O1D#  B O1D O2C O1D#    G   F O2C O1D#  B O1D O2C O1D#"
  46. 550  DATA "O1F O0G#O2D#O1C O2D O0B O2D#O1C   O2F O1F O2D#O1C O2D O0B O2D#O1C "
  47. 560  DATA "O1F O0G#O2D#O1C O2D O0B O2D#O1C   O2F O1F O2D#O1C O2D O0B O2D#O1C "
  48. 570  DATA "O1F#O0A O2C O1D#  B   D O2C O1D#  O2D#O1C O2C O1D#  B O1D O2C O1D#"
  49. 580  DATA "O1F#O0A O2C O1D#  B   D O2C O1D#  O2D#O1C O2C O1D#  B O1D O2C O1D#"
  50. 590  '
  51. 600  DATA "O2D#O0G O2C O1D#  B   D O2C O1D#    G   F O2C O1D#  B O1D O2C O1D#"
  52. 610  DATA "O2D#O0G O2C O1D#  B   D O2C O1D#    G   F O2C O1D#  B O1D O2C O1D#"
  53. 620  DATA "O2F#O0G O2C O1D#  B   D O2C O1D#    A   C O2C O1D#  B O1D O2C O1D#"
  54. 630  DATA "O2F#O0G O2C O1D#  B   D O2C O1D#    A   C O2C O1D#  B O1D O2C O1D#"
  55. 640  DATA "O2G O0G O2C O1D#  B   D O2C O1D#  O2D O1F O2C O1D#  B O1D O2C O1D#"
  56. 650  DATA "O2G O0G O2C O1D#  B   D O2C O1D#  O2D O1F O2C O1D#  B O1D O2C O1D#"
  57. 660  DATA "O2G#O0G O2C O1D#  B   D O2C O1D#  O2D O1F O2C O1D#  B O1D O2C O1D#"
  58. 670  DATA "O2G#O0G O2C O1D#  B   D O2C O1D#  O2D O1F O2C O1D#  B O1D O2C O1D#"
  59. 680  '
  60. 690  DATA "O0G   G   B   B O1D   D   F   F     G#  G#  F   F   E   E   F   F "
  61. 700  DATA "O1B   B   F   F O2D   D O1B   B     G#  G#  F   F   E   E   F   F "
  62. 710  DATA "O0G   G O1C   C   D#  D#  G   G   O2C   C O1G   G   F#  F#  G   G "
  63. 720  DATA "O2D#  D#  C   C   G   G   D#  D#    C   C O1G#  G#  G   G   G#  G#"
  64. 730  DATA "O0G   G   A   A O1F#  F#O2C   C     D#  D#  C   C O1B   B O2C   C "
  65. 740  DATA "O2F#  F#  C   C   A   A   F#  F#    D#  D#  C   C O1B   B O2C   C "
  66. 750  '
  67. 760  DATA "O0G   G O3D O0G O3C O0G O3D O0G   O3D#O0G O3C O0G O2B O0G O3C O0G "
  68. 770  DATA "O2A O0G O3C O0G O2B O0G O3C O0G   O3D O0G O2B O0G O2A O0G O2B O0G "
  69. 780  DATA "O2G O0G O2B   D   A   C   B   D   O3C O2D#  A   C O1B O2G O2A   C "
  70. 790  DATA "O2F#O1A O2A   C   G O1B O2A   C   O2B   D   G O1B O2F#O1A O2G O1B "
  71. 800  DATA "O2D O1G O3G O1B O3F O1A O3G O1B   O3G#O2C O3F O1G#O3D#O1G O3F O1G#"
  72. 810  DATA "O3D O1F O3F O1A O3D#O1G O3F O1A   O3G O1B O3D#O1G O3D O1F O3D#O1G "
  73. 820  '
  74. 830  DATA "O3C O1D#O3D#O2G O3D O2F O3D#O2G   O3F O2G#O3D O2F O3C O2D#O3D O2F "
  75. 840  DATA "O2B   D O3D O2F O3C O2D#O3D O2F   O3D#O2G O3C O2D#  B O2D O3C O2D#"
  76. 850  DATA "O2G   C O3C O2D#  B   D O3C O2D#    G#  F O3F O2D O3D#O2C O3F O2D "
  77. 860  DATA "O2G   D#O3D#O2C O3D O1B O3D#O2C     F   D O3D O1B O3C O1A O3D O1B "
  78. 870  DATA "O2D#  C O3C O2D#  B   D O3C O2D#    G#O1F O2F   D   D#  C   F   D "
  79. 880  DATA "O2G O1D#O2D#  C   D O1B O2D#  C     F O1D O2D O1B O2C O1A O2D O1B "
  80. 890  '
  81. 900  DATA "O2 ML E8 MS ECDE FGG#A# O3C O2 A#G#GF16 L32 GE "
  82. 910  DATA "O2 ML F8 MS FGFEFGG#G FD#DD#FDD#F"
  83. 920  DATA "L16 O1 B O0 C B O1 D F G#G F B F O2 D O1F B G#G F "
  84. 930  DATA "T88 O1 E O2 C# O1 A#G O2 C O1 G#F G#G A#G E G#F D F "
  85. 940  DATA "T80 O1 E G E C F D O0 B O1 D O0 C G O1 C D E G A# G"
  86. 950  DATA "T72 O1 G# O2 C F D F G# O3 C O2 B O3 C. O2 G. F. D. L32"
  87. 960  DATA "O2EO1CO0C O2EO1CO0C O2EO1CO0C O2EO1CO0C O2EO0CO1C"
  88. 970  DATA "O2EO1CO0C O2EO1CO0C O2EO1CO0C O2E4."
  89. 980  '   THAT'S ALL, FOLKS!
  90.